home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / LookupMenu < prev    next >
Encoding:
Text File  |  1990-09-14  |  1.0 KB  |  29 lines  |  [TEXT/MPS ]
  1. #
  2. # The Lookup Menu
  3. #
  4.  
  5. AddMenu Lookup 'Lookup/L' 'Lookup "{Lookup}" ∑ Dev:Null &&∂
  6.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  7.     Set Lookup "{®1}"'
  8. AddMenu Lookup 'Lookup RW/¬' 'Lookup -w "{Lookup}" ∑ Dev:Null &&∂
  9.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  10.     Set Lookup "{®1}"'
  11. AddMenu Lookup (- ' '
  12. For Lookup in '{MAPInterfaces}' '{MACIncludes}' '{MALibraries}' '{MARIncludes}' '{MAExamples}'
  13.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
  14.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  15.     Set Lookup "{®1}"'
  16. End
  17. AddMenu Lookup (- ' '
  18. For Lookup in '{CIncludes}' '{PInterfaces}' '{AIncludes}' '{RIncludes}'
  19.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
  20.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  21.     Set Lookup "{®1}"'
  22. End
  23. AddMenu Lookup (- ' '
  24. For Lookup in '{MPW}Scripts:' '{MPW}'
  25.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null && ∂
  26.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑ Dev:Null && ∂
  27.     Set Lookup "{®1}"'
  28. End
  29.